EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
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Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LIBSSREAD_OBJEC 


1 
14-Sep- 
! 


MODULE LibSSread object. ( ! File: LIBFNDIMG.B32 Edit: STAN3004 
ANGUAGE (BLISS32) 
ADDRESSING BODE (EXTERNAL =GENERAL) , 
IDENT = 'V03-004 


pt GIN 
RTITLE "Read and dissect object file’; 


ASSES LISII ESTOS TEST TTT TTT Tec Tce cic cect ici irc cir ii tic it i iiiiiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


a ae SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte? 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE Spl dh NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


7 
® 
® 
® 
= 
® 
as 
® 
® 
& 
ie TRANSFERRED. * 
® 
cs 
& 
® 
® 
x 
R 
& 
® 
® 


at ot ot tt I I HOO OOOOOOO 


AME WN OS OONAU LW O ODNOAOUS WN OOONOUS WR 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. oeRPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH | 


pew wpe lalololelololelololololololelolololololo) 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S$ NOT SUPPLIED BY DIGITAL. 


ASSES SISCLSIII ETE TTT TTT TTT Tree rece re cece ec cc eri rice criti titi ii iii iiiig) 


Ssssss oooo COoOCooooooooooooo 
COOoooCoooo Ssoosoo Sssss Ss 


BBE BEE EE & FANNIN PONONININNONINDD 2 OO OS 
OWONOA VEU OO OONAUE WN $0 ODNAOUEWN (OO DNOUS WN HOD ONOUL WR 


naa a a a a an ak at at td db dd dd dd = —s — 2 2) — 9 — 9 — 9 — 9 4 — 9 9 4 18 QOOOO 
- 
& 


003 

003 'ee 

003 ! 

; FACILITY: Run time Library 

3 $$ ; ABSTRACT: 

$3 This procedure reads an object file and returns the symbols 

0040 i ENVIRONMENT: 

0041 i 

98 ! VAX native, user mode. 

004 ! 

044 leo 
45 ! 
ge | 
744 AUTHOR: Benn Schreiber 
9 1! CREATION DATE: 23-Jan-1981 

0 050 $ 
1 ith MODIFIED BY: 
35 38 V03-004 STAN3004 Stanley Rabinowitz 24-Jul-1984 
36 bee i v03-003 8LS0277 Benn Schreiber 7-F EB-1984 
28 2$ Convert to internal RTL routine. 


3 
G-sep-1964 01:09:08 yaN=1t BLiag=- 32 v4.0-763 | 


3 


Re re ep ae IESSBcHBRE P3983 98 — WMad SSS Tbe 28. uae} 


H } ' v03-002 BLSO¢es Benn Schr {ber 16-Jun-1983 
} Add flags argument and 1MOD flag 
len 


1 
1 v03-001 BLS0209 Benn Schreiber 27-Feb-1983 
! Correct PSECT name for read/only OWN data 


Declarations 


LAgSSR AD_OBJEC Read and dissect object file 


{ 


SB SSSA R SN TSSESESRARSSSELESLOLLESELSL PN 


met en ee tk a a oa os ot os ot so ot 


Soss5 


DDD De Pete $+ hat ty tet art Pe 
ee a a a el ee ee ee ee a ee a a a dd 


fwn—0O0@ 


aaa at ak nk at at at st a a ss ws 2 2 1 2s 2s 1 2 2 YS 


SOOOOSOOCOOOSOOSOOOGCOOOOOSOOOCOOCOOSOSOSOOOSCOOSOOOCOOOCOOOOOOOOO: 


+4 4 O 


XSBTTL ‘Declarations’; 
; BLISS Libraries 
LIBRARY 
"RILSTARLE';: 
REQUIRE 
"RILIN:RTILPSECT’; 


DECLARE _PSECTS (LIB); 


bese 
14-Se 


pa19Be 12:99:48 


‘Declare psects for 


Data structure to describe object mod le 


FIELD 
obc_fields = 
SET 


obc_l_gbirtn 0 
obc_l_pscrtn & 
obc_|_eomrtn 8 
obc_l_ogsrtn 1 
obc_l_orecrtn 1 
obc_q_desc = § 


obc_l_usrdata = 
obc_w_maxrecing = 
obc_b_flags = 
obc_v_mhdseen = 
obc_v_inmseen = 
obc_v_imod = 
obc_b_currectyp = 
obc_b_lstrectyp = 
obc_b_modnaming f 


LITERAL 
obc_c_size = 38+31; 


GLOBAL LITERAL 
LibSm_lnk_imod = 1; 


LINKAGE 
context_11 = CALL : GLOBAL (context 


FORWARD ROUTINE 
dealloc_context : context_11, 
prohdr : context_11, 
progsd : context_11, 
proeom : context_11, 
sequence_check : context_11; 


EXTERNAL ROUTINE 
Lib$free_vm, 
Libs et_ym. 
str$freel_dx; 


EXTERNAL LITERAL 
Lib$_badccc, 


‘Address 
‘Address 
‘Address 
‘Address 
‘Address 
Dynamic 


AX=11 BLi 


LIB facility 


globals routine 
psect routine 

eom rec routine 
other GSD routine 


f other record routine 


fe) 
str 


ing descriptor 


'User data to pess to routines 


‘Max rec lengt 


allowed by caller 


} ae 

' module header seen 

' Lang. name record seen 
! only process one module 


l saree v4.0-7 
LIBRTL.SRCJLIBRDOBJ.S 


‘Current record type 
‘Last record type 
‘Length of module name 
‘Length 31 


'Size of OBC structure 


‘Bit mask for flags 


= 11); 


'Deallocate context block 
‘Process module header records 
‘Process GSD records 

‘Process end of module records 


'Check sequence of object records 


'Deallocate virtual memory 
‘Allocate virtual aenery 
!Deallocate dynamic string 


'ILlegal compilation completion code 


4 ° | 
$3 age 53 


Declarations 


s 3 ¢ 15 1 

ym 1 

: 124 1 os 

s 25 \8 1 

8 0219 1 

5 } 0 1 

; 128 7 

; 129 § 1 

; 150 1 
a? 2 
: < 1 

as $ 1 

; 135 se 

. 3 8 9 1 

3; 137 0 1 

g : : 0231 : 

: 140 6 : 1 LITE 
3 «6141 0234 1 

: 183 $586 
3; 6144 8 $ 1 GLOBAL 
18 $539 
3 «147 0240 1 PSEC 
; 148 0241 1 

: 149 0 $g 1 

; 150 0243 1 

s 151 0244 1 

: 13 bse? 1 

s 0246 1 

; 6154 0247 1 PSEC 


LARSSR AD_OBJEC Read and dissect object file 


_eomerror, 
“eomfatal, 


_noeom, 
ocean 


true = 
false = "6; 


(IBS$gl_objetx 


compilecodes : 
IN Vi 


T OWN = _LIBSDATA; 


2 93:98:98 EM ant ’SReSctenbo6) 1035; 1 
rrors in eom compila 


tion code 
ern vee in eom gone i Lat on code 
ngs he = A se lation code 


ooo @e 
-——— 
= 
a 
o 
°o 
3 
a 
Cad 
~< 
vo 
e@ 


rd too small to hold data 
gal record sequence 
gal record sequence 
gal structure level 


: REF SBBLOCK FIELD(obc_fields);!pointer to context block 
T OWN = _LIBSCODE; 


'Read-only data 


!Translate eom compile codes into messages 
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LIBSSREAD_OBJEC Read and dissect object file -Sep-1 AX-11 Bliss-32 V4.0-74 P 
vos 4 ui — Lename = Get descriptor of file spec 16-00-1986 93: 93: 8 CTBRTL” SR REIL IBRDOBJ .B32;1 st (33 


1 ZSBTTL ‘LibS$getfilename - Get descriptor of file spec from FAB’; 
1 eet ROUTINE LibS$gettilename (fab) . 


as 


| FUNCTIONAL DESCRIPTION: 
This routine returns a string descriptor for a file. 
i Inputs: 
fab Address of the fab 
i Outputs: 
Routine value is address of string descriptor for file name 


WN COODONOUS Wit —OO0 


MAP 
fab : REF S$BBLOCK; 


a. 
am : REF $BBLOCK; 


OWN 
filedesc : SBBLOCKCdsc$c_s_bin]; 


nam = = Fabs fenst mam); 
IF (.mnam EQL 
OR (IF (ti Ledese Cdsc$w_length] = .nam Cnam$b_rsl]) NEQ 0 
THEN filedesc Cdsc$a “pointer] =_-nam ECnam$l_rsaJ 
ELSE IF (filedesc CdSc$w_length] = .nam Cnam$b est) NEQ 0 
THEN filedesc dacha ppointerd = .nam Cnam$T_esa); 
- filedesc(dsc$w_length 
THEN BEGIN 
filedesc fdsc$w. length) = .fab Cfab$b_fns]; !Use filename string 
_ dsc$a_pointer) = .fab Cfab$T_ fnad;' if all else fails 


3 filedesc 
1 END Of Lib$$get filename 


hat ted tet tet OR POR RPS AR SN Be RA et ry ee tee oc 


OOO OOOH W090 090909 09 09 09 SII NI SIN NNN NINO AAA AAOAAAD 
DWNAUE WN $9 VONOULSWN "QO O0OnNOu 


Be Se Se Ge Ge FH Se Se Ge Ge Ge FH Se Se Ge Se Se Se Se Se Se Se Se Se Sees Se Se Sess Se Se Se ee SeSseSeSseeseees 


ee ee en en en ee ee ee ee ee ee ee ee ee ee 
CSOOCOCOCOCOCOSOCOSOCSOOCOOCOOOOOCOOOOOOOOOOOoCOoOO 


ROPIPOPPINININONPIPNIPNIPNNyNoNnofnonynyd: 


- TITLE LRSSREAP.OBJECT Read and dissect object file 
IDENT \V03-004\ 


-PSECT _LIBSDATA,NOEXE, PIC,2 
00000 LIBSS$GL_OBJCTX:: 

-BLKB 
00004 FILEDESC: 

-BLKB 


-PSECT _LIBSCODE.NOWRT, SHR, PIC.2 


000000006 000000006 000000006 00000 COMPILECODES: 
.LONG LIBS_EOMWARN, LIBS_EOMERROR, LIBS_EOMFATAL ; 


- 


be 


< 


3 
LIBSSREAD_OBJEC Read and dissect object file 1s Sep-1984 9: AX-11 Bliss-32 V4.0-74 P L 
Vos 008 LibS$getfilename - Get descriptor of file spec 14-Sep 071384 93: 3 98 LIBRTL. SRCIL IBRDOBJ B32; 1 sa (35 v0: 
LIBSM_LNK_1MOD== 1 
.EXTRN LIBSFREE_VM, LIBSGET_VM 
.EXTRN STRSFREET DX, LIB$ BADCCC 
“EXTRN LIB$_EOMERROR, L1BS_EOMFATAL | 
~EXTRN LIBS_EOMWARN, LIB$_GSDTYP | 
-EXTRN LIBS-ILLFMLCNT, LIBS_ILLMODNAM 
.EXTRN LIBSTILLPSCLEN, LIBS-ILLRECLEN 
EXTRN LIBSTILLRECLNG, LIBS-ILLRECTYP 
-EXTRN LIBSTILLRECTY2, LIB$~ TLLSVMLEN 
-EXTRN LIBS$"NOEOM, LIB$_RECTOOS 
XTRN LIBS-SEQUENCE, Pres. SEQUENCE? 
EXTRN LIBSISTRLVL 
0004 00000 .ENTRY LIBSSGETFILENAME, Save R2 + 0249 
52 00000000" EF 9E 00002 MOVAB FILEDESC, R : 
51 04 AC DO 00009 MOVL FAB, RI : 0275 
50 28 OAT 09 9000p MOVL 40(R1), NAM : 
1¢ 13 0001 BEQL 38 : 027 
62 03 Ad 8 00013 MOVZBW 3(NAM), FILEDESC : 027 
07 13 0001 BEQL 1$ : 
04 A2 046 ad 00 90019 MOVL * at FILEDESC+4 : 0278 
0B 11 OOO1E BRB 2$ : 
62 0B AO 1 00020 1$ MOVZBW 11(NAM), FILEDESC : 0279 
05 13 00024 BEQL 2$ : 
04 A2 0c Ad DO 00026 MOVL _12(NAM), FILEDESC+4 + 0280 
62 BS 00028 2$ TSTW FILEDES RE : 0281 
09 12 0002D BNEQ 4$ ; 
62 34 Al 9B O00¢F 3$ MOVZBW 52(R1), FILEDESC : 0283 
04 A2 2¢ Al DO 00033 MOVL  44(R1). FILEDESC+4 : 0284 
50 62 9E 00038 4$ MOVAB FILEDESC, RO : 0287 
04 00038 RET : 0288 


; Routine Size: 60 bytes, Routine Base: _LIBSCODE + 000C 
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LIBSSREAD_OBJEC Read and dissect object file 16-Sep-1984 01:09: AX-11 Bliss-32 V Page 7 
Lose bor = LibS$report_io Sar - Report 1/0 error on FAB 1 ~3007 138% 93:98 09 LIBRTL.SRC REIL abo ies 31 ° (4) 
; 198 89 1 2SBTTL ‘Lib$$report_io_error = Repo /O0 error on FAB or RAB'; ; 
? 199 90 1 GLOBAL ROUTINE (ibSSreport fo.error (frab) © : 
$ go 4! os" : 
3 oe $8 FUNCTIONAL DESCRIPTION: : 
: 04 0295 i This routine signals an 1/0 error. ; 
: 505 0996 3 ° 
; 206 029 i Inputs: 3 
3; 207 8 98 i 3 
; 208 99 i frab e FAB or the RAB which got the erro 3 
3 8 8 69 the AS gS ix Th field of the FAB/RAB must contain the : 
; 11 0 6g i *CSHRS ;OPENIN/OPENOUT /READERR/URLTEERR/CLOSEIN/ CLOSEOUT» FY 
3 \¢ 030 i If frab is a RAB, then RABSL_FAB must point to the FAB F 
5 (et Babe i In either case, the FAB must point to a valid NAM block 3 
: 214 05 i with both the expanded and resultant name strings in 3 
s 215 0306 i order for consistent error reporting $ 
3; 216 0307 i 3 
3; al 0308 i Outputs: 3 
; 218 0309 § i 3 
; $30 Baie The error is signalled. RMS$_EOF is not signalled : 
$ $s bag i Routine value: 3 
g $$¢ 031 ! 3 
; 2 0314 i The $L_STS field of frab is returned 3 
> 224 0315 i 3 
s 225 0316 = 3 
; 226 0317 3 
3 ger 0318 2 MAP 3 
; 228 0319 § frab : REF S$BBLOCK; 3 
3 $§2 0320 ; 
; 2350 0321 IF .frabCrab$l_sts] NEQ rms$_eof 3 
: 231 0356 THEN SIGNAL. frablfab$l_C¢tx),1 3 
; 232 03 ui bSSget filename (IF -frabl fabsb _bid] EQL fab$c_bid ; 
3; 233 0324 4 3 
: 234 0325 2 fd ¢ rab$l_fab])), 3 
3 tH b3s6 § -frabCfab$l rm x oe ttep LstvJ); : 
; $3 0328 2R Sg -frabCfab$l_stsJ 3 
; 238 0329 1€E ; 
0004 00000 -ENTRY LIBSSREPORT_IO_ERROR, Save R2 3 0430 : 
52 04 AC 00 00002 MOVL cree 3; 0321 3 
0001827A 8F 08 A2 D1 00006 CMPL B«R §, #98938 : ; 
22 13 id BEQL $ 3 
7 08 A2 70 oat MOVa 8(R2), =(SP) 3 0338 
0 62 91 14 CMPB (R2), # : 0 
9 12 17 BNEQ 1$ 3 
9p 19 PUSHL Re 3 0324 
3C A DD ib 1$ BUSHEL $5cR2) : 
AO AF 0 FB $038 23: CALLS #1, LIBSSGETFILENAME : 9333 


LARSSREAD OBJEC Peed. one ag object file 


; Routine Size: 


report_io_error = Report 1/0 error on FAB b-$ ep: 71 38e 9}: 93: a te tar! TL. BR iis SRDO $8) 1639; 


000000006 ” he PB St 1BSSIGNAL 
98 5 90 3$: MOVL Hi that ‘ 


08 A2 pb? 


55 bytes, Routine Base: _LIBSCODE + 0048 


V 


0: 


SS a _ 


spneAo OBJEC Read and dissect object file 16-5e -Sep-1984 9: AX-11 Bliss-32 V4.0-7 Page » LIB! 
vost dealloc_context == ad Aa context block Sets 7 93: 46 93 Ht IBRTL.SR REILISRDOBY .63 B32;1 = (5) vo8 


; 240 8 0 ] B5etrt. ‘dealloc_context == deallocate context block'; 
: 41 1 1 ROUT pw dealloc_Context : context wll = 
Oe bee | 
: rf 8 : This routine deallocates the context block | 
3: 246 O338 EXTERNAL REGISTER 
; ste eet context = 11 : REF $BBLOCK FIELD(obc_fields); | 
: 249 0339 LOCAL 
s 250 0340 status; 
; 23] 0341 
3 26 0 1: IF .context NEQ 0 
3 5 034 THEN BEGIN 
: 254 0344 str$freel_dx(Lib$$gl_ob eyxtobe .adesc]) 
> 255 0345 status = TibSfree_vmT%REF (obc_c-sitze), LibS$gl_ objctx); 
; 256 0346 t b$$gl_objctx = Context = 0;~ 
3 see 0347 RETURN ‘status 
; 258 0348 END 
; 259 0349 2 ELSE RETURN true 
; 260 0350 2 
: 261 0351 1 END; 
0004 00000 DEALLOC_CONTEXT: 
~ WORD Save R2 ; 0331 
52 00000000" EF 9 00008 MOVAB tfosscl _OBJCTX, R2 3 
5E 04 C2 00009 SUBL2 ; 
58 05 Q000C TSTL ConTERT : 
21 13 OQOO0E BEQL 1$ 3 
E 62 14 C1 00010 ADDL3 #20, LIBS$GL ws we -(SP) 3 0344 
000000006 00 91 FB 00014 CALLS STRSFREET_D j 
2 odd 00018 PUSHL : 0345 
04 AE 45 8F 9A Bo0s8 MOVZBL #69, 4(SP) $ 
04 AE 9F 000 ¢ PUSHAB q 
000000006 00 02 FB 000 CALLS #2, LIBSFREE_VM ; 
5B D4 0002C CLRL C 3; 0346 
62 D4 0002E CLRL LIBSS$GL_OBJCTX 3 
04 00030 RET : 0349 
50 01 pO 00031 1$ MOVL RO ; 
04 00034 RET ; 0351 


; Routine Size: 53 bytes, Routine Base: _LIBSCODE + 007F 


0342 
| 
| 
| 


Routine Size: 46 bytes, Routine Base: _LIBSCODE + 00B4 


LIBSSREAD_OBJEC Read and dissect object file ise -1984 9: AX=11 Bliss-32 V4.0-74 Page 10 
NOs 008 sequence _check == check record type sequence 12: 8ep-1984 93; 3 98 LIBRTL. BR RCILIBRDOB .B3 31 ° (6) | 
> 263 ZSBTTL_ ‘sequence_check == check record type sequence’; 
: 64 ¢ j 1 ey ane on roe theck : context_ iis = . 
8 gg feet | 
$ of 8 § Check that the record sequence is correct | 
> 269 0 38 ROUTINE sequence_error : context_11 = 
: 570 0 BEGIN 
: er 0360 ! 
: , 0 61 Signal a record sequence error | 
; 2% 0 63 EXTERNAL REGISTER 
; sf? 8 f context = 11 : REF S$BBLOCK FIELD(obc_fields); 
3 eff 0366 IF .contextCobc_b_modnaming] NEQ 0 
; 278 0367 THEN SIGNALTLTb$_sequence,1,contextLobc_b_modnaming)) 
; 44 pee ELSE ST eNAL (Libs “sequencee): 
; 281 0370 Age Lib$_sequence 
$ dee 0371 2 END 
0O00C 00000 SEQUENCE_ERROR: 
-WORD Save ; 0358 
53 00000009G 8F 00 00002 MOVL aL iB$ Re EO ENCE, R3 3 
52 000000006 00 9€ 00009 MOVAB LJBSSTON AL, R2- r 
25. AB OQ 90019 TSTB (CONTEXTS : 0366 
0c 13 0001 BEQL 1$ 3 
25 AB 9F 00015 PUSHAB 3h CCONTERT? : 0367 
01 DD 00018 PUSHL #1 3 
53 DD Sete PUSHL aS 3 
62 33 FB QO0IC CALLS LIBSSIGNAL $ 
9 11 OO0O1F BRB 23° ; 
00000000G 8F ODD B85 1 1$ PUSHL #LIBS$_SEQUENCE2 ; 0368 
62 01 FB 00027 CALLS #1, LTess! IGNAL 3 
50 53 dO B38 A 23 MOVL R3, RO : 0370 
04 0002D RET ; 0371 


i] 
: Main body of sequence_check 
EXTERNAL REGISTER 
context = 11 : REF SBBLOCK FIELD(obc_fields); 
IND 
recdesc = contextCobc_q_desc] : SBBLOCK 
sbirec = .recdesc(dsc$a_pointer) : $BBLOCK; 
IF .contextCobc_b_currectyp) EQL obj$c_hdr 
THEN BEGIN , 
IF .objrecCobj$b_subtyp]) EQL obj$c_hdr_mhd 


CMOoMo NNN NNNIN 
FW OODNOUE Win 


Se Se Se Se Ge Ge Se Ge Ge Ge Ge Se Se 


3 5 4 

$ 38 § 4 

: 98 

; 299 8 

; 300 0389 

3 wl 0390 

; 0391 

; 0 35 4 

; 304 0395 4 

; 305 0394 3 

; 306 0395 4 

s 307 0396 4 

; 308 0397 4 

; 94 0398 4 

3 10 0399 4 

; $1) 0400 ; 

: \¢ 0401 

; 4 ott 

: 14 040 

s 51$ 0404 

>; 316 0405 

ae 0406 3 

: 318 0407 : 

; 319 0408 

: 320 0409 § 

s Sel 0410 

3 See 0411 1 END; 
OE 


dD 4 
LAGSEREAD OBJEC Read and dissect object file Jo~senn 1386 9} 093: 
V05-004 sequence_check == check record type sequence 14-Sep-1984 12:59: 


THEN BEGIN 
IF .contextCobc_b_lstrectyp] EQL obj$c_eom 
THEN BEGIN 
contextlobc_v_mhdseen] = true; 
contextlobc_v_lnmseen] = false; 
RETURN true 


END 
ne RETURN sequence_error() 
ELSE IF .contextCobc_v_mhdseen] 
THEN BEGI 
IF oe ned he subtyp] EQL obj Se hdr_lnm 
THEN contextCobc_v_lnmseen] = Erue; 
RETURN true 


END 
ELSE RETURN sequence_error() 


ELSE IF .contextCobc_v_mhdseen] 
D .contextCobc_v_lnmseen] 
THEN BEGIN 
IF .contextCobc_b_currectyp] EQL obj$c_eom 
THEN contextlobc_v_mhdseen] = false; 
RETURN true 


END 
ELSE RETURN sequence_error(); 


0000 00000 SEQUENCE CHECK: 
«WORD 


50 14 AB 43 00002 MOVAB 
50 04 Ad D Boone MOVL 
23 ae 95 OOO0A TSTB 
2 4g 0000 BNEQ 
01 Aad 95 O0000F TSTB 
10 12 00012 BNEQ 
03 24 AB 91 00014 CM°B 
1 is Bni8 BNEQ 
$8 AB 1 1A BISB 
AB § A 8 is BICB 
1 BRB 
33 ee f 4 18: BLBC 
1 1 A 1 8 CMPB 
1 1 C BNEQ 
22 «AB 9¢ ° B1SB2 
1 BRB 
9 13 22 “ 3 28: BLaC 
08 23. AB + CMPB 
2 ei 
8 1 89 47 3%: MOVL 
4 4A RET 


‘Main mhd record has just followed eom recor 


'Flag no lnm mhd seen 


‘Last record was not eom, signal the error 


‘If current record is end of module 
! then we have no mhd record 


» 
Oo 
~ 


(CONTEXT), #3 


4 (CONTEXT) 
4 (CONTEXT) 


souText). ot 
», #1 


mem + 


. 34(CONTEXT) 
CONTEXT), 4$ 
SE EONTEXT? . 
CONTEXT), #3 


34( CONTEXT) 
RO 


A § AN F HNO — FHI" HO KH — OUN- OW 
~~ 


RRB BWW BA MIN BE NW EY 


4$ 


4 
voReon “PES Seadence_check =~ check record type sequence 1 §00-198 P3i85:98 — Hbteate°SmeSiTéAbG80-659; 1 seit 


83 AF 00 F 4B 4$: A #0, ; 
fe gpgee 5 0, SEQUENCE _ERROR 409 


L 


<= 


; Routine Size: 80 bytes, Routine Base: _LIBSCODE + O0E2 
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LIBSSREAD_OBJEC Read and dissect object file 16-Sep-1984 01:09: Ax-1 
Vos oon 1a-8ep 9:93:98 


tT V4.0-74 Page 
prohdr == process MHD records -Sep-1984 RC 


1 1 
LIBRTL. LIBRDOBJ .B32;1 (7 


118 XSBITL ‘prohdr -= process MHD records'; 
41 ROUTINE prohdr : context_11 = 
tie BEGIN 
218 This routine processes MHD records 
rt Inputs: 
Re » recdesc Address of string descriptor for mhd record 
Ouge : 
Be EXTERNAL REGISTER 
Be ¢ context = 11 : REF SBBLOCK FIELD(obc_fields); 
0426 BIND 
0427 recdesc = seocensy as q_desc] :_$BBLOCK 
8 : objrec = .recdescldscS$a_pointer]) : S$BBLOCK; 
0430 LCCAL 
0431 status; 
0438 
04 ! 
bee Check record sequence 
0436 IF NOT (status = sequence_check()) 
0438 ! 
0235 : Skip all but main module header records 
0441 2 IF -objrecLob $b_subtyp] NEQ obj$c_hdr_mhd 
or THEN RETURN frue; 


Check for legal structure level 
if sOpicgetandte_strtvi2 GTRU obj$c_strilvl 
THEN BEGIN 
SIGNAL (Lib$_strivl,1,objrec(mhd$b_naming)); 
RETURN Lib$_strivl 
END; 
Check max record Length supplied 
iF (contextCobc_v_maxrecing] = ,objrec(mhd$w_recsiz]) GTIRU obj$c_maxrecsiz 


N 
SIGNAL (Lib$_illreclen,2,.objrec(mhd$w_recsiz),objrec(mhd$b_naming])); 
= LibS_illreclen 


Check module name Length 


if -obirectnhdsb naming] GTRU obj$c_symsiz 
sane hatte rec(mid$b_naming) EQL 0 

SIGNAL (LibS_illmodnam, .objrec(mhd$b_naming] ,objrec(mhd$b_naming)); 
Lib$_illmodnam 


RRRRLLRLLLLELELERELEELE 


BFERVLIS 


| 
——— eee aa... 


RETURN 
END; 


1 
, THEN RETURN .sStatus; 


So 
= 
an 
co 


coer ——n— — LR 


<r 


o~ 
Yo 
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LIBSSREAD_OBJEC Read and dissect object file 1B-5e 1984 01:09: AX=-11 BLi 
VO8 008 prohdr -- process MHD records 1 ~3ep-19 4 9:93:98 

$8 Copy module name into context block for error messages 


contextCobc_b_modnamlng] = .objrec(mhd$b_naming); 
EMSNOVE (ob}rcEmnaSb. Aamings ob) rectmnaSe. named -contextCobc_t_modnamel) ; 


1 
48 
ff Call user action routine for “other records’ if specified 
16 IF .contextCobc_l_orertn] NEQ 0 
7 THEN status = (.contextlobc_l_orcrtn]) (recdesc,.contextlobc_l_usrdata)) 
78 ELSE status = true; 
79 
60 
1 


RETURN .status 
END; 


WO OOo IO UI 


O7FC 00000 PROHDR: .WORD Save R2,R3,R4,R5,R6 
5A 000000006 8F DO 00002 MOVL #LIB$_ILLRECLEN, R10 
59 000000006 8F D0 00009 MOVL M#LIBS~STRLVL, RO 
58 000000006 00 9€ 90010 MOVAB L IBSSTGNAL 
56 14 AB 4 0017 MOVAB 20(CONTEXTS, R6 
52 04 A6 DO 0001B MOVL  4(R6), R2 

8D AF 00 FB 0001f CALLS #0, SEQUENCE_CHECK 
57 50 DO 00023 MOVL RO. STATUS 
03 57 &8 00036 BLBS STATUS, 1$ 
0085 31 00029 BRW 8S 
01 A2 95 0002c 1$ TSTB —s-: 1(R2) 
04 13 O002F BEQL 2$ 
50 01 Dd 00031 MOVL #1, RO 
04 000 RET 
02 A2 3 00035 2$ TSTB g(R2) 
OE 1 900 8 BEQL $ 
05 Ad 9F OOO3A PUSHAB 5(R2) 
01 0D 0003p PUSHL #1 
59 DD 0003F PUSHL  R9 
58 03 FB 90041 CALLS #3, LIBSSIGNAL 
50 59 D0 00044 MOVL R9. RO 
94 0047 RET 
50 03 a2 C 00048 3$ MOVZWL 3(R2), RO 
20 AB 2 BO 0004¢ MOVW RO, 36 (CONTEXT) 
0800 8F B1 0005 CMPW = saRO, #204 
12 1B 3 BLEQU 4$ 
83 A 3 PUSH $783} 
7E A C QOOSA MOVZWL (R2), -(SP) 
92 DD 0005 PUSHL #2 
A DD 0006 PUSHL R10 
4 % 4 be CALLS #4, LIBSSIGNAL 
0 AD OVL R16, RO 
04 68 RET 
1F 05 A2 91 00069 4$: P| (R2), #31 
05 1A D BcTRU 5$ 
05 A 93 F (R2) 
05 A2 9F te 5$: PUSHAB Sinz) 
7E A2 9A 00077 MOVZBL 5(R2), -(SP) 


strié v4.0- 
LIBRTL.SRCILIBRDOB 


R7,R8,R9,R10 


SeSe Se Se Se Ge Se Gee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se tee Bete Se Se Ge Ge Se Be Se Se 


0413 


$85 
a. 


; 0441 
; 0442 
; 0446 


0448 


0449 
0454 


0456 


0457 
0462 
0463 
0465 


H 4 
LIBSSREAD_OBJEC Read and dissect object fil -$ep-1984 :09: AX-11 Bliss-32 V4.0-7 P 5 
meet = orenér == process ft D receras 19-08-1384 94:93:98 AVORTL SAETL TERNCBS 209951 _ 3} 
Seconnnos A PR Sear ASN ASE aAA TOR ! 
$8 000000006 8F é HOVL *ife$_ ILLMODNAM, RO : 0466 
25 05 A2 90 f 6$: Ove g(r ), 37(CONTEXT) + 0471 
59 Ao 9A MOVZBL 5(R2). R : 0472 
26 «AB 06 A 5 5 MOVC3 RO, 6(R2), 38(CONTEXT) : 
10 AB OD 98 TSTL (CONTEXT) t 0476 
O& 1 09 BEQL : 
1¢ AB pd mM PUSHL 28 (CONTEXT) ; 0477 
10 88 g FB 00h CALLS #2, @16(CONTEXT) : 
D a9 MOVL RO, STATUS : 
11 OOOAC BRB : 
57 1 00 OOOAE 7$: MOVL #1, STATUS : 0478 
50 7 DO 00087 8$: MOVL STATUS, RO : 0480 
04 00084 ; 0481 
; Routine Size: 181 bytes, Routine Base: _LIBSCODE + 0132 
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SSREAD_OBJEC Read and dissect object file 
progsd -- process GSD records 


ZSBTTL ‘progsd -- process GSD records'; 
ii proged : context 11 5 


on 
m 


This routine processes GSD records 
Inputs: 
recdesc 


UILTIN 
NULLPARAME TER; 


EXTERNAL REGISTER 
context = 1 


LOCAL 
symboldesc : SBBLOCK(dsc$c_s_bln], 
symbolvalue, 


ags 
gsd_desc : $BBLOCKCdsc$c_s_bln], 


: REF S$BBLOCK FIELD(obc_fields); 


objrec : REF $BBLOCK; 


IND 
recdesc = contextCobc_q_desc] : S$BBLOCK 
objvec = .recdescldsc$a_pointer] : VECTORL,BYTE); 


IF .contextCobc_l_gbirtn] EQL 0 
THEN RETURN true; 


gsd_desc(dsc$b_dtype) = gsd_desc(dsc$b_class] = 0; 
gsdoffset = obj$c_subtyp; 


' 
! Process the GSD record 


WHILE sgsdot feet LSSU .recdescldsc$w_length) 
DO BEG! 
LOCAL 

recordtype, 

wordpsectgsd; 


objrec = .recdesc(dsc$a_pointer] + .gsdoffset; 
wordpsectgsd = (tobi 

reclgsd 
CASE (recordtype = ob vec(.gsdoffset]) 


SET 


: 3:08 yAent Bi fegrie V4.0=74 
739: LIBRTL.SRCJLIBRDOBJ .B32;1 


Address of string descriptor for gsd record 


'String descriptor for symbol name 
'Value of symbol 

'Symbol flags 

'String descriptor for gsd subrecord 
'Status from processing entry point 
‘Length of def/ref 

'Offset into record 

!pointer to object record 


'Name record as byte vector 
'If no routine to process them 
! then don't bother with the record 


!'Init pointer into record 


‘Loop through the record 


‘Contains word of psect rather than byte 
'Update record pointer 


reclgsd$b_gsdt GEQU gsd$c_symw) ‘Test for word of psect number 
. AND ¢ ob} $b osdtyp) LEQU gsd$c_prow)); ° 


'Dispatch to process GSD 


ROM gsd$c_psc TO gsd$c_maxrectyp OF 


nee en en ee OO es ee ee ee ee ee ei ei ei ei ei ee eI ei ee ee te mie ie tee fe tee tee te ie ee ee ee ee te 


ee = —— ———eEee " 


LJ GSEREAD OBJEC Read and dissect object file 1b-sep-1984 93:03:08 AX-11 Bliss-32 V4.0-74 Page 17 


progsd -- process GSD records -Sep- LIBRTL.SRCILIBRDOBJ.B32;1 (9) | 
; te8 5 Cgsd$c_psc.gsd$c_spscJ : 'Psect definition | : 
: 431 $ | PSECT definitions | sf 
; “38 5G BEGIN | : | 
3 454 40 4 Bl | : | 
: $22 ‘) 2 psectdef = objvec(.gsdoffset] : SBBLOCK; ‘Name the definition | : 
; 43? 228 4 LOCAL . | 
; 458 244 4 psectdesc : SBBLOCK(dsc$c_s_binJ, : 
; 459 45 4 psectalign, ; 
; 460 246 4 psectflags, ; | 
: ree ef ‘ psectalloc; : 
; 46 0549 4 IF (.gsdoffset + gps$c_name + 1) GEQU .recdescldsc$w_length] | 
> 464 beee THEN BEGIN | 
3; 465 0551 SIGNAL (Lib$_rectoosml,1,contextlobc_b_modnaming)); 3s 
; £38 b228 ? RETURN Lib$-rectoosml ; 
; 468 0554 4 ppeeteccet deems dtype] = psectdesc(dsc$b_class] = 0; a. 
; 469 0555 4 F .recordtype EQL gsd$c_psc ; | 
: 470 0556 5 THEN BEGIN | 
3; «471 0557 5 psectdesc(dsc$w_length] = specctde th epste_ncnl ng): > | 
3; 47 0558 2 psec tdesc dsc$a_pointer] = psectdef psét_naned; ; 
3 rit, £4 senene = gps$c_name + .psectdescldscSw_length]; !Compute length of psect def. : 
; 475 0561 3 ELSE BEGIN a | 
; 476 b2e§ 5 pooc teense i decdu. length) = .psectdef(sgps$b_naming); ; 
3; 477 056 2 sectdescldsc$a_pointer] = peec teat sposst nang); a | 
3 rth Ee: ? zengen = sgps$c_name + .psectdescldsc$w_lengthJ; : 
; 480 0566 4 IF pace edovetsecdu. Lengrh3 rm, 0 'Check Length of psect name s { 
; 481 0567 4 R .psectdesc(dsc$w_length] GTRU obj$c_symsiz sf 
3; 48 0568 5 THEN BEG : | 
; 48 0569 6 SIGNAL(Lib$S_illpsclen,3,(IF .recordtype EQL q d$c ps g | 
; 484 0570 6 THEN psectde Copss naming] g | 
; 485 0571 5 ELSE psectdef(sgps$B_naming)), s | 
; 486 B26 5 spares tdescidecSu_ length) content obc_b_modnaming]); s | 
s ret Bate ? RETURN Lib$_illpsclen : 
: 489 0575 4 IF .contextCobc_l_pscrtn] NEQ 0 ‘If user psect routine supplied e | 
; 490 0576 2 THEN BEGIN ! then set up and call it now sf 
3; 491 0577 psectalign = .psectdef(gps$b_align); s | 
; 49 b255 : psectflags = .psectdeflgps$w_flagsj; | 
3; 49 57 psectalloc = .psectdeflgps$l_allocJ; 3 | 
: 494 0580 5 gsd_desc(dsc$w_length] = .length; 'Set up descriptor for psect def. 3s | 
: 495 0581 sd_desc geese pointer? = ,objrec; ; | 
; 4% 286 -contextlobc_UT_pscrtnJ])(psectdesc, 'Call the user routine now s | 
3; 497 287 peocter iy psectflags.psectalloc | 
3; 498 5 -context obc_l_usrdata ,gsd_desc); - | 
; 499 0585 4 END; 3s | 
: $00 0586 4 godet tect = .gsdoffset + .length; 'Update pointer into record e | 
; 501 0587 3 ND; : | 
s | 
i. 

| 

| 
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SSSSSSSSSSSS 


D records 1 LIBR DOBJ.B 


ALL types of symbols 


tgsd$c_sym TO gsd$c_prow] : 'ALL symbols 
ss J 
symbolrec = objvec(.gsdoffset) : $BBLOCK; !Name the symbol gsd 
LOCAL 
entrymask 


symbolstring : REF VECTORC,BYTE); 


IF .recordtype EQL ng 
OR .recordtype EQL gsd$c_epmw 
OR .recordtype EQL gsd$c_pro 
OR .recordtype EQL gsd$c_prow 
THEN BEGIN 


Process entry points and procedure definitions 
peareyacetoes 
EN BEG N 


!Pointer to symbol ascic name 
Process entry points and procedures 


if 
TH 
Entry point with word of psect 


entrymask = .symbolrecCepmw$w_mask); 

Length = epmw$c_name + .symbol[recCepmwS$b_naming); 
symbolvalue = -Symbolreé fepaw$ addrs : 
symbolstring = symbolrec epmw$b_namLng); 


ELSE BEGIN 
: Entry point with byte of psect 


entrymask = .symbolrecCepm$w_mask); 

mo ba = epm$c_name + .symbolrecLepm$b_naming); 
symbolvalue = “symbol recLepas_addrs]; 
prahokate cng = symbolrec epm$b_naming); 


i If this is procedure definition, then skip the argument 
: descriptors 
if .recordtype EQL gsd$c_pro 
OR .recordtype EQL gsd$c_prow 
wee oe 


formals = objvec(.gsdoffset+.length] : SBBLOCK; !Name formal argument descriptors 


LOCAL 
argcount; 


if. *ocaplel fal Se_sinerge? GTRU .formals(fml$b_maxargs) 
SIGNAL (LIiDS_illfmlicnt,2,.symbolstring,contextCobc_b_modnaming)); 
a Libs ill fmicnt 
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LIBSSREAD_OBJEC Read and dissect object file 1b-Se 1984 01:09: AX-11 Bliss-32 V4.0-74 Pp 19 
Voss progsd -- process GSD records 12-80 8=1 382 9:99:98 LIBRTL.SRC [TaRDOR) .639; 1 99° 10) 


; 560 45 § IF geet tect + ,length + fml$c_size) GEQU .recdescldsc$w_length] 

; 561 r* THEN BEGIN 

3 66 47 7 SIGNAL (Lib$_rectoosml,1,contextlobc_b_modnamingJ); 

; 207 ote { A Lib$S_rectoosml 

; ee 0 6 tongth = .length + ae size; 'Skip fixed part of formals 

; 208 ; © IF ergcount = .formalsl¥ml$b_maxargs]) NEQ 0 'If there are argument descriptors 
; 56 6 § 8 THEN INCR i FROM 1 TO .argcount ! then process them 

; 568 6 DO BEGIN 

; 569 654 7 BIND 

; $70 0655 7 argdesc = oDiveek.gedet tants, Length : !'Name the argument descriptor 
; sre 8928 4 SBBLOCK; 

: 57 0658 7 Length = .length + .argdescCarg$b_bytecnt] + arg$c_size; 

3; 574 5689 § END: : : vtec Pie 

3 or? 0660 END; 

; 278 0661 4 END; 

3 bY pO6¢ 4 ! 

; 578 0665 4 ! Process ordinary symbol definitions and references 

; 579 0664 4 : 

; 580 0665 4 IF .recordtype EQL ge m 

; 581 0666 4 OR .recordtype EQL gsd$c_symw 

; 44 0667 5 THEN BEGIN 

3; 3 0668 5 ' 

; 584 0669 5 ! Ordinary symbol definitions and references 

; 585 0670 5 : 

3 386 0671 5 entrymask = 0; 'No entry mask 

; 587 berg 5 IF NOT -symbolreclgsy$v_det] 'If a reference 

; 588 0673 6 THEN BEGI 

; 589 0674 6 J 

; 590 0675 6 ! Symbol reference 

; 591 0676 6 ' 

; 236 pore 6 length = srf$c_name + .symbolrec(srf$b_naming); ‘Simply compute Length of ref 
; 78 6 symbolvalue = 0; ‘Value is 0 if a reference 

; 594 0679 6 symbolstring = symbolrec(srf$b_naming); 

; 595 0680 6 

; 596 0681 6 ELSE BEGIN 

; 597 ey 6 ' 

; 598 Re 6 ! Symbol definition 

3; ty 6 H 

; 600 0685 § IF werdpsec teed !'If a word of psect number 

: $0) THEN BEG N 

; 608 6 3 4 ; «ewith word of psect number 

; 605 90 7 Length = sdfwSc_name + . ymbolrec(sdfw$b_naming); 
; one 91 7 symbolvalue = .Symbolrec(sdfw$l_value); ‘Point to value 

; rit 3 4 syabolstring = symbolreclsdfw$b_namlng); 'Point to the symbol name 

; 609 94 7 ELSE BEGIN 

: 610 95 7 : 
; 611 36 7 ! ...with byte of psect number 
; ol¢ 97 7 ‘ 

3 |6T 98 7 length = sdf$c_name + .s mbol recCsdt$b_ naming]: 

; 614 99 7 symbolvalue = “symbol rect sdt${ value : ‘Point to symbol value 

; oi? oB0 ? gyasetstr ing = symbolrec(sdf$b_naml gi; 'Point to the symbol name 


Mm 4 
= = e +4 ae = > { 
VOs-008 - F” Drogsa' =~ process Ged record VerSep-1986 12:99:18 EtientuosneSciaRD06 699; 1 Pat 46) vos 


0 progsd == process GSD records é: 

; 617 Ite 5 END; 

; o18 7 & END; 'Symbol definition 

3 $6) 704 4 

; ? , A ? 7 Check length of symbol name 

: 6 707 4 -symbolstring(0) EQL 0 'Check validity of symbol name 

5 ? § p28 4 THEN Of -symbols ringed GTRU obj$c_symsiz ‘ , 

3 6 0710 STENAL(LIbS. he mlen 3 ee ring !Signat illegal symbol name 

> 626 0711 gyiip olstri ingf jcontext Eobe % _modnamingJ); 

: 627 Orie 5 RETURN LibS_illsymlen 

; 628 713° 4 END; 

; 629 714 4 ' 

3 630 far ? Create string descriptor for symbol name 

3 O36 0717 4 symbol flag i’ tenaeat cael flags); !Get the symbol flags 

; 6 0718 4 symboldesc dsc$w Length symbolstringl0); 

; 6 0719 4 syaboldesc dsc$b_dtype] = 0; 

3 639 bese 4 Syapor dese gsc$b_ class] = 0; 

> 636 0721 4 symboldesc(dsc$a_pointer] = syapelstringt 12; 

; 637 07 ¢ 4 gsd_ gesch deceu., length] =. 

; O38 of ? ? gsd_desc(dsc$a_pointer) = os nd 

; 640 0725 5 (.contextCobc_l_gblrtn]) 'Call the user global symbol routine 

; 641 0726 4 (symboldeSc,symbolvalue,symbol flags,entrymask, 

3 oe 0727 4 contextLobe l _usrdata) -gsd_ desc); 

; 64 0728 4 peserrens = .gsdoffset + length '\Update the pointer into the record 

3 644 0729 ND; 

3; 645 0730 

; 646 0731 Cgsd$c_idc]) : ‘Entity ident check 

3; 647 07 $ 4 BEGIN 

3 648 07 4! BIND 

: 6469 0734 4! entity_name = , 

; 650 0735 4! entity_ident = 

; 651 07 $ 4! object_name =;° 

: $26 07 4 

3 63 br 85 4 true 

3: 654 0739 4 

; 655 0740 ; GND 

; 656 0741 C INRANGE 

3 607 Ores 4 BEGIN 

3; 658 0743 4 true 

3; 659 0744 END; 

; 660 Br8? TES; 

: 661 746 END; !GSD record 

3 $66 747 

: 66 748 RETURN true 

1 664 749 | 

; 665 750 1 END; ‘of progsd | 
| 
| 


o7F¢ 0000 PROGSD: ; WORD Saye R R2. R3,R4,R5,R6,R7,RB,RI,R10 > 0483 
5E 34 C2 000 SuBL2 sof : 
16 AB SE 0000 MOVAB SO CEONTEXT) . > 0510 
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progsd -=- process G 
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65 0 
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000000006 98 
50 000000006 
57 
59 01 
50 52 
50 04 
50 01 
57 02 
EB 51 
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04 
10 
10 02 A3 
57 04 
57 
18 
56 04 
12 
57 OA 
57 
18 AE 06 
56 OA 
57 09 
57 
18 AE 05 
56 09 
1F 
25 
7E 
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000000006 98 
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14 «AE 02 
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i 18S ILLFMLCNT 
# 18 NAL 
#LiBS_ILLFMLCNT, RO 


2(R9), RO 
#0, #16, (RS), RO 


¢s$ 
37 (CONTEXT) 
a. 1Bs RECTOOSML 
H LTB SIGNAL 
#LIB$_RECTOOSML, RO 
#2, LENGTH 
1(R4), ARGCOUNT 
27$ 
H, GSDOFFSET, RO 
, RO 
RO 
(LENGTH], LENGTH 
UNT, I, 25$ 
TYPE, #1 
ORDTYPE, #4 
RYMASK 
2(R3), 29$ 
), LENGTH 
NGTH 
OLVALUE 
), SYMBOLSTRING 
PSECTGSD, 30$ 
3), LENGTH 
NGTH 
), SYMBOL VALUE 
35, SYMBOLSTRING 
i 
: LVALUE 
SYMBOL STRING 
MBOLSTRING) 
MBOLSTRING), #31 


ONTEXT) 
MBOLSTRING), -(SP) 
YMBOLSTRING 


#L 18S ILLSYMLEN 
& LT6 SIGNAL 
#Lfe$_ILLSYMLEN, RO 
2(R3), SYMBOLFLAGS 


AX-11 Bliss-32 V4.0-74 
LIBRTL.SRCJLIBRDOBJ .B32;1 
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YA OLT Bl 
LIBRTL.S 
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626 bytes, Routine Base: 


; Routine Size: 


LIBSSREAD_OBJEC Read and dissect object file 16-5e -1984 AX-11 Bliss-32 V | 18S 
ret proeom -- process EOM records Sep-1 38 9}: 93: 8 ft IBRTL. BR ROIL 16Rd0 es 31 mea 1-0 
; 667 751 1 XSBTTL roeom -- process EOM records'; 

: 098 f § 1 poi ine ott : context. ll z= 

; £96 754 2! 

: 4 4 5 Process end of module records 

: 67 Fa EXTERNAL REGISTER 

: ore 7 8 context = 11 : REF SBBLOCK FIELD(obc_fields); 

ers o7e8 rey d textCob desc] : SBBLOCK 

3 recdesc = contextCobc esc 

: oF $786 shires ® = .recdesc dscSa~ “pointer) : SBBLOCK: 

: 680 0764 

: 681 0765 LOCAL 

; 68 8706 eomflags, 

; 68 076 transfer_psect, 

: 684 0768 transfer_address, 

; 685 0769 comcode, 

ie oge on 40 eee 

: 688 0778 : 

: yr 4 tak contextCobc_w_maxrecing] = obj$c_maxrecsiz; 'Reset to maximum allowed by Language 
3 691 o775 Check record sequence 

: 69 0777 if NOT (status = se uence_check()) 

694 078 2 THEN RETURN «status; — 

; 698 14-4 wordpsecteom = (.objrecCobj$b_rectyp] EQL obj$c_eomw); 

; oS 4404 Check record Length and determine if a transfer address is present 

: 700 0784 if (IF ‘vor dpeec toon 

; 701 0785 THEN ‘<trons fer Fecdesctds sropdocci gecty.. Length] NEQ eomw$c_eommin) 
: 70 0786 6 AND ((.recdescldsc$w rgengcn omw$c_eommx1) 

; 7 0787 4 0 (.recdescl = Me Length] GTR eomw$c_eommax))) 

: 704 0788 5 ELSE sttroneter pocdress = gree descCdsc$w_length] NEQ eom$c_eommin) 
; 705 0789 D ((.fecdesc(dsc$w_ length) LSS" eom$c_eommx1) 

; 706 0790 OR ( (-recdescCdsc w_olength] GTR eom$c_eommax)))) 

3; 707 0791 THEN BEGIN 

; 708 1454 SIGNAL (Lib$S_illreclen,2,.recdescCdsc$w_length],contextCobc_b_modnaming]); 
: 18 a Ai LibS-illreclen 

: 711 $7 3¢ ' ; 

: at a Check the module compilation completion code 

: 714 798 2 IF (comcode = .objrecLeom$b_comcod]) NEQ 0 

: 715 799 THEN BEGIN j my 

3 ay + IF .comcode GTRU 3 

» Fy 1 4 THEN BEGIN 

; 718 og 4 SIGNAL (Lib$_badccc,2,.comcode,contextlLobc_b_modnaming]); 

; ah 4 080 ? Se Lib$~badccc 

; 731 §¢ ELSE SIGNAL (. compi lecodes[.comcode-1],1,contextCobc_b_modnaming)); 
Bo wi & 


LABSSREAD OBJEC 


Read and dissect object file 
proeom -- process EOM records 
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ODOOOSCOo 
6909000000 
N—OOONOUSWN —OCOONOULS wr — 


WAILWAIROPOROPONOPONOPONON 2 SS Se oe es 


SOoOOOCOCOCOCOCOoOoOoOOooO 
0 C9 CO Cd Cd C9 09 0D CD C9 CD Co 


: 


! Get transfer address info if present 


If NOT .transfer_address 
THEN transfer_psect = 

ELSE IF .wordpsecteom 
THEN BEGIN 


transfer_psect = .objr a pene sindx]; 
transfer_address = obi rec cones tfradrd; 
eomflags = .objrecCeomwSb_tfrfilg 


ELSE BEGIN 
transfer_psect = .objrecCeom$b_psindx]; 
transfer_address = .objrec cons tfradr]; 
sont lags = ,objrecCeom$b_tfrfilgl; 


Call user routine if supplied 
if -contextCobc_l_eomrtn] NEQ 0 


+00 Yaron Oi hegre V4.0-74 
: LIBRTL.SRCJLIBRDOBJ .B32;1 


THEN status = (.contextlobc_l_eomrtn]) (eomflags,transfer_psect, 
transfer_address,comcode,recdesc) 


ELSE status = true; 
RETURN .status 
END; 


01FC 00000 PROEOM: 
58 000000006 er DO 00002 
57 00000000G 8F DO 00009 
ee Be 
5 14 ae 4 3 OO1A 
52 04 A3 00 0001 
20 AB 0800 8F B0 33 ; 
FC5C CF 98 00 00 
54 DO 000 
03 oont 5 
2 4 1$: 
° ; 
$3 | ‘ F 2$: 
50 Be ‘s 
02 1 D4 : 
2 FS d00c0 
i) F 
04 ag ' o8 i 3$: 
(8 


«WORD 
MOVL 


Save R2,R3,R4,R5,R6,R7,R8 
#L1BS_ 4 
#LIBS_ILLRECLEN, R7 
LIBSSIGNAL, R6 


’ SP 
20(CONTEXT), R3 


8; 32( CONTEXT) 
#0, SEQUENCE_CHECK 
STATUS 
STATUS, 1$ 


Page 495 


0752 


0786 


5 
LIBSSREAD_OBJEC Read and dissect object file 1b-se -1984 01:09: AX-11 Bliss-32 V4.0-74 Page 27 1B! 
ri eetita proeom -- process E records 1 ~$00n 138% 93:93:98 LIBRTL.SRCILISRDOBJ .B3 31 . ats 0 
09 50 81 0005 CMPW RQ. "9 : 0787 
18 1 BRB 6 : 
50 f 4$: MOVZWL (R3), RO ; 0788 
02 5 8 cuRy ORO. a2 : 
¢ Ty othe = tat 2 
04 AE 1 08 5$: MOVL §R1, TRANSFER_ADDRESS : 
1A 1 € BLBCOséaR|, 8s : 
07 Q 81 7 CMPW OS séRO, t 0789 
Q F 0007 BLSSU7$ ; 
08 : 81 7A CMPW =SséRO, «#8 : 0790 
10 18 00070 68: BLEQU 8s : 
25 AB OF OOO7F 7S: PUSHAB 37(CONTEXT) + 0792 
50 DD 2 PUSHL R : 
85 OD 000 PUSHER 
6 04 FB 00 CALLS #4, LIBSSIGNAL : 
0 7 20 0088 MOVL R7, RO + 0793 
6E 01 a 9A OOOBF 8S: MOVZBL 1(R2), COMCODE + 0798 
29 13 00093 BEQL 108 ; 
50 25 AB 9E 00095 MOVAB 37(R11), R + 0802 
03 6 D1 00099 CMPL  COMCODE. # + 0800 
10 1B 0009C¢ BLEQU 9$ : 
50 DD 0009 PUSHL RO + 0802 
04 AE DD OOOA PUSHL  COMCODE : 
02 DD OOOA PUSHL a : 
58 DD 000A5 PUSHL R : 
66 04 FB O0A7 CALLS #4, LIBSSIGNAL : 
50 58 DO OOOAA MOVL * RO + 0803 
04 OOOAD RET : 
50 DD OOOAE 9S: PUSHL RO > 0805 
50 08 AE bd b6oB MOV. COMCODE : 
FAEB crap DD 00086 PUSHL COMPILECODES-4CROJ : 
05 04 AE EB OBE 10$:  BLBS | TRANSFER_ADDRESS, 11$ : 0810 
08 i D4 o¢ cURL TRANSFER_PSECT : 0811 
11 g 59 00C7 11$:  BLBC WORDPSECTEOM, 12$ > 0812 
08 AE 02 =A ¢ CA MOVZWL 2(R2), TRANSFER PSECT > 0814 
04 AE 06 Ad D CF VL. 4(R2). TRANSFER-ADDRESS > 0815 
AE 08 Ae A Ds MOV ZBL 8(R )* EOMFLAGS : a3 
08 AE : A2 9A 12$:  MOVZBL 2(R2), TRANSFER_PSECT : 081 
04 AE A po E VL (Ro). TRANSFER-ADDRESS + 0820 
OC AE 7 Ad 9A OOOE MOVZBL 7(R2). EOMFLAGS F 08 1 
08 AB D3 £A 13%:  TSTL B(CONTEXT) ; 0826 
7 1 ED BEQL 4$ : 
2 _ 
Be AE Ot Bore PUSHAB TRANSFER_ADDRESS : | 
14 AE QF 000F7 PUSHAB TRANSFER“PSECT ; | 
08 v. 8 Pb O00FD CALLS, #S- BB( CONTEXT) | 
ae g BB Of MOVL RO; STATUS : | 


HBAS. godt nes ne facet en men es ee 
P i} : Bou oat statu ; 
33 i s a 13%: HOVE STATUS. ; Og | 


; Routine Size: 269 bytes, Routine Base: _LIBSCODE + 0459 
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Read an sect object file 1b-Sep-19 4 91:99:00 AX-11 Bliss-32 V4.0-74 
LIBSSREAD_OBJECT = read an object file 14-Sep-1984 12:39: LIBRTL.SRCJLIBRDOBJ.B32;1 

: 750 $ 3 1 2SBTTL ‘LIBSSREAD QOJECT - read an object file’; 

; 751 4 1 GLOBAL ROUTINE LibS$read_object (read routine, flags,user_context, 

ee ¢ 5 1 global_routine, psect_routine,eomrec_routine, 

s 7 $ 1 Othgsd_routine,othrec_routine) = 

: i ¢ BEGIN 

; £28 B39 ; This routine is called to read an object file and return the contents 

; 38 B41 ' INPUTS: 

: 760 rk i read_routine Routine to read the next record of an object file 

: re) rf. } It is called with onw argument as follows: 

: te? Oace ! (.read_routine) (user_context,record_descriptor); 

: 765 nee i flags OPTIONAL = Address of longword of user-requested flags 

; 108 Baen } LIBSM_LNK_1MOD = only process one module 

: 768 ne i user_context OPTIONAL = Longword of context which is passed 

3 76° oees to all called routines. 

: 771 0854 i global_routine OPTIONAL = Routine that is called with the name 

; 44 te } and value of a global symbol. It is called as: 

: 774 OBs? i t.globel_routine) Csyabel desc,symbol_value, 

3; 775 0858 ! symbol_flags,entry_mask, 

a +84 } user_context,gsdrec); 

: 778 0861 2 WHERE : 

: 779 bees : symbol _desc is the address of a string descriptor 

; 780 086 : for symbol name 

: «781 0864 : symbol _value is the address of the symbol value 

: 78 0865 : symbol_ flags is the address of the symbol flags 

3; 7 8 : entry_mask is the address of the entry mask 

; 784 86 : user_context is the context passed in 

3: 785 0868 ; gsdrec is the address of a string descriptor 

3 ree +44 } for the symbol record 

: 788 O87 i psect_routine OPTIONAL = routine that is called for a psect 

3 a4 1 definition. 

: 791 0874 i (.psect_rout ine) (psectname,psectalign,psectflags, 

3 rs Ne psectalloc,user_context,gsdrec) 

3 794 B79 i eomrec_routine OPTIONAL = routine that is called for end of module 

: 795 A records 

: 738 i (.eomrec_routine)(eomflags, transfer_psect, 

; 798 1 } transfer_address,comcode, 

; 799 ¢ user_confext,eomdesc) 

; 1 i othgsd_routine OPTIONAL = routine that is called for all other 

; § 5 GSD types 

; (,othgsd_rout ine) () 

: i othrec_routine OPTIONAL = routine that is called for all other 


roe 


5 
LIBSSREAD_OBJEC Read and dissect object file 1b-se -1984 01:09: AX-11 Bliss-32 V4.0-74 
Loe OBJECT = ot an object file 1 ~ge07}38t 93:93:98 LIBRTL.SRCILIBRDOBJ .B832;1 


LIBSSREAD_ 
7 : record types 
09 ! (.othrec_routine) () 
: OUTPUTS: 
global_routine is called for each symbol definition 


BUILTIN 
NULLPARAME TER; 


GLOBAL REGISTER 
context = 11 : REF SBBLOCK FIELD(obc_fields); 


SSSSSESSSSSSSS 


> 4 ns 


WN 0 OONOUES WN "OO OONOUE WO 


; LOCAL 

3 5 status, 

; B08 recdesc : REF $B8BLOCK; 

; 90 

; $09 : If a context block already exists, then use it. Else allocate one 
3 $91 IF | 1DSSal objctx EQL 0 

3 Bag THEN IF NOT (status = LibSget_vm(ZREF (obc_c_size), 

3 91 LibS$gl_objetx)) 

; 914 THEN BEGIN 

; 915 SIGNAL(.status); 

; aig RETURN .status 

835 $918 ite 

: : 3484 } Initialize the context block 

; ; 0921 context = .Lib$$gl_objctx; 

; 839 09 § CHSFILL(O,obc_c_size,.context); 'Zero the context block 
3 0 9 context obc_w_maxrec ng} = ob $c_maxrecsiz; 

; 1 6 contextlobc_b cue rec tye = obj$c_eom; !Initialize current record type as end of module 
; ¢ 5 IF NOT apres bo 

; Z 9 $ THEN contextlobc_v_1tmod] = ..flags AND LibSm_lnk_1mod; 

3 5 9 3 : Fill in routine addresses 

: 5 0 IF NOT NULLPARAMETER(3) 

3 8 1 THEN contextlobc_l_usrdata] = .user_context; 

3 9 § IF NOT NULLPAR RT4J 

; 850 THEN contextLlobc 4 gbirtn] = .global_routine; 

: 51 IF NOT spectre HM oy J 

; 2g 5 THEN contextLlobc $ pscrtn]) = .psect_routine; 

3; & IF NOT NULLPARAMETERT6) 

; 854 THEN contextLlobc pytoartn) = ,eomrec_routine; 

; 855 3 IF NOT NULLPARAMETERT 

3 2$ THEN contextLobc ogsrtn]) = .othgsd_routine; 

; 5 ? IF NOT pny By J 

3 38 THEN contextlobc_l_orcrtn] = .othrec_routine; 

3 ‘ recdesc = context Lope a desc); !Point to descriptor 
3 1 Bee recdesc(dsc b_class) = dsc$k_class_d; 

; ‘ 6 ! Call user routine to read file until eof returned 


wef | 


pele J we 


SNS NSO 
BWNOULSWIN—O 
PPADS £& 
WO C§ONOUS Us" OV0On 


SS 
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; eR Regs coins OR, Peewee PAT 


« 
and dissect object file -Sep-1984 01:09: AX-11 Bliss-32 V4.0-74 P 1 1B 
D- OBJECT - read an object file 12286871382 93:93:98 LIBRTL. RCILIBRDOBJ .83 31 age 43) abl 
' 
waLe (,read_routine)(.contextCobc_l_usrdata],.recdesc) NEQ rms$_eof 
mo 


objrec = .recdesc(dsc$a_pointer] : SBBLOCK; 


IF .recdesc(dsc w_ length) GTRU_.contextlobc_w_maxrecing] 
OR .recdescldsc$w_length] EQL 0 
THEN BEGIN 
IF .contextCobc_b_modnaming) 5a 0 
THEN SIGNALTLTbD$_illrecine, ooPecdescidscsu. length ) 
ELSE SIGNAL(LibS_illreclen,2,.recdescldsc$w_length 
contextLobc_b_modnamlng3); 


dealloc Fontenrt?: 

RETURN Tib$_illreclen 

END; 
contextlobc_b_lstrectyp] = “contens tobe hcurregtyps 'Current record becomes last record 
contextlobc_b_currectyp) = .objrecCobj$Bb_frectypJ; 'Set current record type 


IF NOT (status = 
(CASE .objrecCobj$b rec tyes 
FROM 


obj$c_fidr TO obj$c_maxrectyp OF 

SET 
obj$c_hdr] : prohdr(); 'Process hdr record 
obj$c_gsdJ : progedses 'Process GSD record 
obj$c_eom) : BEGIN !Process eom record 

status=proeom(); 

IF .contextLobc_v_1mod] ‘Exit if 1 module 

THEN EXITLOOP; 
.status 
END; 


INRANGE) : true; 
OUTRANGE) : BEGIN 
IF .contextCobc_b_modnaming] NEQ 0 
THEN SIGNALTLTD$_illrectyp,2,.objrecCobj$b_rectyp], 
contextCobc b_mognaning ) 
ELSE SIGNAL(Lib$_illrecty2,T,-objreclobj$b_rectyp)); 
pipet trectyp 


$)) 
THEN BEGIN 
dealloc_context(); 
— -Status 


END; 
Check that last record was eom record 


If .contextCobc_b_currectyp] NEQ obj$c_eom 

THEN BEGIN 
SIGNAL (Lib$_noeom,1,contextCobc_b_modnaming)) ; 
dealloc context (); 
RETURN Tib$_noeom 


LAgssr AD_OBJEC Read and dissect object 
Vv LIBSSREAD_OBJECT > bead A “Ssect file 
3 ; 1 5 deall text() 
e 3 
2 ¢ ! é alloc _contex 
924 1 RETURN true 
925 1008 
926 1009 END; 
OFFC 00000 
A 00000G 8F 00 0000 
8 00009000: EF 9E 0005 
28 4} CF 9E Ht 
000000006 30 9 4 
5E 4 C2 0001C 
69 D5 OO0O1F 
1F 12 00021 
59 dD 000 H 
04 AE 45 8F A 38 
04 AE 9F OO02A 
000000006 90 05 08 4 D 
08 56 £8 00037 
56 DD B28 A 
67 01 FB 0003C 
58 0188 BO O00a2 
0045 &8F 00 6E "9 2c aos 
20 AB 0800 8F 88 b004 
23S AB 03 9 0053 
02 6C 91 0005 
08 AE DS o00ee 
oe . oon See BORE 
8g 6c 91 boee 
oc PE 88 
Os 3 890 
1¢ AB 0c AC 99 Ns 
04 c¢ 91 7 
9 Ff 7A 
10 ac OD 7¢ 
10 a : Mi 
os & 9 
A if 
14 AC D A 
05 1 
046 AB 14 AC i Ff 
06 C 
A if 97 
18 AC D5 00099 
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LgeRer e OBsEC Read and dissect object fi 
Vv03-004 LIBSSREAD_OBJECT = read an 
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20 AB 
7E 
67 
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67 
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50 
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23. AB 
07 00 
0052 0061 0048 
0061 0061 0061 
7E 
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#7 
8 (AP) 
OTHGSD_ROUTINE, 12(CONTEXT) 
AP), #8 
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6$ 
GQanee ROUTINE, 8(CONTEXT) 


2(AP) 

QTHREC ROUTINE, 16(CONTEXT) 
(R113, RECDESC 

#2, 3(RECDESC) 


SREAD. ROUTINE 
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LIBSSREAD_OBJEC Read and dissect object file 16-Sep-1984 01:09: AX-11 Bliss-32 V4.0-74 Page 34 
Loe LIBSSREAD_OBJECT - ject an object file 13-808- 1382 93:93:98 LIBRTL. RCILIBRDOBY .B3 31 ° «35 
OF 11 00147 BRB 17$ : 
7E 04 : 9A 00149 16$ MOVZBL @4(RECDESC), -(SP) + 0985 
DD 00140 PUSHL #1 : 
00000000G 8F DD 0014F PUSHL #LIB$ ALunect ve : 
3 6F 1 ; CALLS # 18 SIGNAL : 
6 000000006 4 9 } : 17$: boxe MLIBS_ILLRECTYP, STATUS 3; 0981 
0083 «C8 p re r? 18$: CALLS é f PROHDR + 0972 
0168 C8 0 FB 00168 19$: CALLS #0, PROGSD + 0973 
56 ; p 190 208: MOVL } STATUS : 
O3DA «C8 g FB 173 21$: CALLS #0, PROEOM ; 0975 
56 D 17 MOVL RO, STATUS : 
05 22 «AB 02 £1 OO17A BBC #2, 34(CONTEXT), 23$ 3 0976 
10 11 oir BRB : 0977 
56 1 09 181 328: MOVL #1, STATUS : 0968 
0 6 E 001 $: BLBC STATUS, 24$ : 
FF3F 31 90187 BRW 3 
68 99 FB 00184 48: CALLS #0, DEALLOC_CONTEXT : 0991 
50 6 00 9018p 5$: MOVL STATUS, RO 3 0992 
04 00190 RET : 
03 23 AB O91 90191 26$: CMPB 35(CONTEXT), #3 3 0998 
19 13 00195 BEQL ers : 
25 AB 9F 00197 PUSHAB 37(CONTEXT) : 1000 
01 DD 0019A PUSHL : 
000000006 8F DD 0019C PUSHL #188 NOEOM : 
67 03 FB 001A CALLS #3, LIBSSIGNAL : 
68 00 FB O01 CALLS #0, DEALLOC_CONTEXT : 1001 
50 000000006 8F oO O01A8 MOVL #LiBS_NOEOM; RO 3 1002 
68 00 FB 00180 27$ CALLS #0, DEALLOC_CONTEXT : 1005 
50 01 DO 00183 MOV #1, RO : 1007 
04 00186 RET : 1009 
; Routine Size: 439 bytes, Routine Base: _LIBSCODE + 0566 


: 927 1010 1 
; 928 1011 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _LIBSDATA 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
;  LIBSCODE 1821 NOVEC,NOWRT, - EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Ss = 6 « Q NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


File Total Loaded Percent Mapped 


; sooccess Symbols -ooeeee~ Pages Processing 
3 Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 95 0 581 00:00.7 


WAUSSSE™OOPE PaadapodasAazeet SPIRES Leta sace vane HRCESRHBIL SUSSBSOD. UMGATOLAENcH¢SG9°088,1 cad] | 
Library Statistics 


; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBRDOBJ/OBJ=OBJ$:LIBRDOBJ MSRC$:LIBRDOBJ/UPDATE=(ENH$:LIBRDOBY) 
3 gy ie 1809 code, 24 data bytes 


; clasced . Tiees “1s 3.6 

: Lines/CPU Min: 

: Lexemes/CPU-Min: 2 569 
pee | Used: 221 pages 

: Compilation teaslele 


ION 
RY 
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